设计"健康秤"程序，界面设计如图3-37所示。具体要求如下：

来源：百度知道 编辑：UC知道 时间：2024/06/25 06:05:48
设计"健康秤"程序，界面设计如图3-37所示。具体要求如下：
（1）将两个文本框的文字对齐方式均设置为右对齐，最多接受3个字符；
（2）两个文本框均不接受非数字键；
（3）单击"健康状况"按钮后，根据计算公式将相应提示信息通过标签显示在按钮下面，如图3-37所示。
计算公式为：标准体重＝身高-105
体重高于标准体重的1.1倍为偏胖，提示"偏胖，加强锻炼，注意节食"；
体重低于标准体重的90％为偏瘦，提示"偏瘦，增加营养"；

身高：165 cm
体重：66 kg
健康状况：正常，继续保持

具体什么？

Private Sub Command1_Click()
Dim s%, a%, b%
s = Val(Text1.Text)
a = Val(Text2.Text)
b = s - 105
If a > (1.1 * b) Then
Label3.Caption = "偏胖，加强锻炼，注意节食"
ElseIf a < (0.9 * b) Then
Label3.Caption = "偏瘦，增加营养"
Else
Label3.Caption = "正常，继续维持"
End If
End Sub
Private Sub Form_Load()
Text1.MaxLength = 3
Text2.MaxLength = 3
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 And (KeyAscii < 48 Or KeyAscii > 57) Then
KeyAscii = 0
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 And (KeyAscii < 48 Or KeyAscii > 57) Then
KeyAscii = 0
End If
End Sub

根据我做的一定对的，我调试过的，不过要看仔细，有些分号这种标点也是很致命的哦